home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9112a.d64 / listing 4 < prev    next >
Text File  |  1995-03-30  |  736b  |  53 lines
  1.  Listing 4:
  2.  
  3. lda  #200
  4. sta  $d000 ;x-Koord.=200
  5. lda  #20
  6. sta  $d001 ;y-Koord.=20
  7. lda  #01
  8. sta  $d015 ;Sprite 1 ein
  9.  
  10. sei ;Interrupt sperren
  11. lda  #<neuirq ;Vektor
  12. ldx  #>neuirq ;verbiegen
  13. sta  $0314
  14. stx  $0315
  15. lda  #$7f
  16. sta  $dc0d
  17. lda  #$01
  18. sta  $d01a
  19. lda  #$f7
  20. sta  $d012
  21. lda  $d011
  22. and  #$7f
  23. sta  $d011
  24. lda  #$00
  25. sta  $3fff
  26. cli
  27. rts
  28.  
  29. :neuirq lda  $d019
  30. sta  $d019
  31.  
  32. lda  $d012
  33. cmp  #$f8 ;Zeile 248 ?
  34. bne  neuirq1
  35. lda  #$17
  36. sta  $d011
  37. lda  #$ff ;nächster IRQ bei
  38. sta  $d012 ;Rasterzeile 255
  39. jmp  $ea81
  40.  
  41. :neuirq1 cmp  #$ff ;Zeile 255 ?
  42. bne  neuirq2
  43. lda  #$97
  44. sta  $d011 ;Rahmen ausschalten
  45. lda  #$28
  46. sta  $d012
  47. jmp  $ea81
  48.  
  49. :neuirq2lda  #$1b ;Normalzustand
  50. sta  $d011 ;herstellen und
  51. lda  #$f8 ;IRQ-Routinen
  52. sta  $d012 ;aufrufen
  53. jmp  $ea31